﻿Public Class UCDoiMatKhau

    Private Sub UCDoiMatKhau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
   
    Function TestInfo()As Boolean
        If txtMKMoi.Text.Length < 6 Then
            MessageBox.Show("Mật khẩu phải lớn hơn 5 kí tự", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
            Return False
        ElseIf txtllMKMoi.Text <> txtMKMoi.Text Then
            MessageBox.Show("Mật khẩu nhập lại không chính xác", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
            Return False
        ElseIf USER.Password <> txtMKCu.Text Then
            MessageBox.Show("Mật khẩu cũ không đúng", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
            Return False
        End If
        Return True
    End Function
    Private Sub btnDoiMK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoiMK.Click
        If USER.IsLogin = False Then
            MessageBox.Show("Bạn chưa đăng nhập vào hệ thống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        If Not TestInfo() Then
            Return
        End If
        Dim sql As String = String.Format("update taikhoan set PASSWORD = '{0}' where USERNAME = '{1}'", txtMKMoi.Text, USER.UserName)
        DataProvider.ExecuteNonQuery(sql)
        MessageBox.Show("Đổi mật khẩu thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        btnDoiMK.Enabled = False
    End Sub
End Class
